home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 14 / 3 / DISK1431.ZIP / TOOLS / TRAND.CMD < prev    next >
OS/2 REXX Batch file  |  1988-02-13  |  467b  |  24 lines
  1.     set %try 0
  2.     set %sum 0
  3.     insert-string "Rolls: "
  4. *nextry
  5.     set %roll &rnd 100
  6.     !if &greater $curcol 70
  7.         newline
  8.         insert-string "       "
  9.     !endif
  10.     set %sum &add %sum %roll
  11.     insert-string &cat %roll " "
  12.     update-screen
  13.     set %try &add %try 1
  14.     !if &less %try 300
  15.         !goto nextry
  16.     !endif
  17.  
  18.     newline
  19.     newline
  20.     insert-string &cat &cat "Sum of rolls: " %sum "~n"
  21.     insert-string &cat &cat "Average roll: " &div %sum 300 "~n"
  22.     update-screen
  23.     unmark-buffer
  24.